Notes

Disk info for cple_Mario_Bros_Pac_man_Robotron_Star_Trek.do:

File Name: a2_cple_Mario_Bros_Pac_man_Robotron_Star_Trek/cple_Mario_Bros_Pac_man_Robotron_Star_Trek.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 7680
Used Space (bytes): 135680
Physical Size (KB): 140
Free Space (KB): 7
Used Space (KB): 132
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 30
Used Sectors: 530
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for cple_Mario_Bros_Pac_man_Robotron_Star_Trek.do:

a2_cple_Mario_Bros_Pac_man_Robotron_Star_Trek/cple_Mario_Bros_Pac_man_Robotron_Star_Trek.do DISK VOLUME #254
A 007 HELLO
* B 100 ROBOTRON
B 108 PACMAN
* B 136 STAR TREK+
B 130 MARIO BROS.
DOS 3.3 format; 7,680 bytes free; 135,680 bytes used.

Text found in cple_Mario_Bros_Pac_man_Robotron_Star_Trek.do/HELLO.bas:

5 REM :PROGRAM
10 POKE 768,32: POKE 769,12: POKE 770,253: POKE 771,201: POKE 772,141: POKE 773,240: POKE 774,1: POKE 775,96: POKE 776,104: POKE 777,104: POKE 778,104: POKE 779,104: POKE 780,104: POKE 781,104: POKE 782,96
20 NOTRACE : TEXT : CALL -936: POKE -16300,0: CALL -380: CLEAR : POKE -20934,0: POKE -20933,3: PRINT
30 PRINT CHR$(4)"CATALOG": POKE -20934,12: POKE -20933,253
110 D$ = CHR$(4):B = PEEK(37) -2: IF B >22 THEN B = 22
120 LET T = 0:CH = 4: FOR CV = 0 TO 23: GOSUB 250: IF C < >160 THEN POKE P -1,186: POKE P,T +193: POKE P +1,186: POKE P +2,160:T = T +1:S = CV
130 NEXT CV: VTAB 24:A$ = "TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 RENAME=5 BOOT=6 SAVE HELLO=7 INIT=8 EXIT= CATALOG=...BOLO 1984.."
135 POKE 34,24
140 LET B$ = "RUN": HTAB 1: PRINT LEFT$(A$,39);:A$ = MID$ (A$,2) + LEFT$(A$,1):K = PEEK( -16384): IF K <128 THEN FOR K = 1 TO 40: NEXT K:K = FRE(0): GOTO 140
150 POKE -16368,0:K = K -176
160 HTAB 1: CALL -868: IF K = -21 THEN TEXT : HOME : PRINT "]SEE YOU AROUND": END
161 IF K = 8 THEN 700
162 IF K = 6 THEN GOSUB 500
163 IF K = 7 THEN 600
165 IF K = -35 THEN GOTO 5
167 IF K <1 OR K >8 THEN 220
170 PRINT "PRESS 'LETTER' YOU WISH TO ";: IF K = 1 THEN B$ = "LOAD"
180 IF K = 2 THEN B$ = "LOCK"
190 IF K = 3 THEN B$ = "UNLOCK"
200 IF K = 4 THEN B$ = "DELETE": FLASH
206 IF K = 5 THEN B$ = "RENAME"
210 PRINT B$;: CALL -198: NORMAL : GET K$:K = ASC(K$) -48
220 IF K <17 OR K >T +16 THEN 140
225 TEXT
230 CH = 1:CV = S -T +K -16: GOSUB 250: IF C = 194 AND (B$ = "RUN" OR B$ = "LOAD") THEN B$ = "B" +B$
240 FOR CH = 6 TO 39: GOSUB 250:B$ = B$ + CHR$(C): NEXT CH: HTAB 1: CALL -868
242 IF LEFT$(B$,6) = "RENAME" THEN GOSUB 400
245 PRINT B$: PRINT D$;B$: GOTO 20
250 LET C1 = INT(CV/8):C2 = CV -C1 *8:P = 1024 +128 *C2 +40 *C1 +CH:C = PEEK(P): RETURN
320 END
400 PRINT "CHANGE IT TO WHAT ";: INPUT C$:B$ = B$ +"," +C$: IF C$ = "" THEN B$ = "RUN": POP : GOTO 20
410 RETURN
500 HOME : PRINT : PRINT : PRINT CHR$(4)"PR#6"
600 VTAB 24: INPUT "SAVE HELLO UNDER WHAT NAME ";N$: IF N$ = "" THEN POP : GOTO 20
610 VTAB 24: PRINT CHR$(4);"SAVE ";N$: GOTO 20
700 PRINT "ARE YOU SURE YOU WANT TO INITIALIZE?";: GET A$
702 IF A$ = "Y" THEN GOTO 709
705 GOTO 20
709 INPUT "INIT DISK UNDER WHAT NAME ";R$: IF R$ < >"" THEN PRINT D$;"INIT";R$
710 GOTO 20